home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok20.lha / ComplexLib / txt / MathLibExt.def < prev    next >
Text File  |  1993-08-15  |  2KB  |  69 lines
  1.  
  2. (*********************************************************************
  3.  
  4.     :Program.       MathLibExt.def
  5.     :Author.        Gary Struhlik  
  6.     :Address.    -
  7.     :Phone.      -
  8.     :shortcut.      [gs]
  9.     :Version.       1.0   
  10.     :Date.          06.10.1988
  11.     :Copyright.  PD
  12.     :Language.      Modula-II
  13.     :Translator. M2Amiga
  14.     :Imports.     -
  15.     :UpDate.     -
  16.     :Contents.     Zusätzliche mathematische Funktionen
  17.     :Remark.     Für den Amiga Modula-2 Klub / Stuttgart
  18.     :Remark.     Am 01.01.1989 mit M2Amiga 3.2d neu kompiliert
  19.  
  20. **********************************************************************)
  21.  
  22.  
  23. DEFINITION MODULE MathLibExt; (* für Datentyp REAL *)
  24.  
  25. CONST
  26.  
  27.     ln10 = 2.302585;              (*  2.302585092994045  *)  
  28.     pi   = 3.141593;              (*  3.141592653589793  *)
  29.         e    = 2.718282;              (*  2.718281828459045  *)
  30.         ln2  = 0.693147;              (*  0.693147180559945  *)
  31.  
  32. PROCEDURE round ( x : REAL ) : LONGINT;
  33.  
  34. PROCEDURE sqr ( x : REAL ) : REAL;
  35.  
  36. PROCEDURE tan ( x : REAL ) : REAL;
  37.  
  38. PROCEDURE arcsin ( x : REAL ) : REAL;
  39.  
  40. PROCEDURE arccos ( x : REAL ) : REAL;
  41.  
  42. PROCEDURE sinh ( x : REAL ) : REAL;
  43.  
  44. PROCEDURE cosh ( x : REAL ) : REAL;
  45.  
  46. PROCEDURE tanh ( x : REAL ) : REAL;
  47.  
  48. PROCEDURE log ( x : REAL ) : REAL;
  49.  
  50. PROCEDURE PwrOfTen ( x : REAL ) : REAL;
  51.  
  52. PROCEDURE lb ( x : REAL ) : REAL;
  53.  
  54. PROCEDURE PwrOfTwo ( x : REAL ) : REAL;
  55.  
  56. PROCEDURE arsinh ( x : REAL ) : REAL;
  57.  
  58. PROCEDURE arcosh ( x : REAL ) : REAL;
  59.  
  60. PROCEDURE artanh ( x : REAL ) : REAL;
  61.  
  62. PROCEDURE power ( x,y : REAL ) : REAL; (* x^y *)
  63.  
  64. PROCEDURE fact ( x : REAL ) : REAL; (*  Fakultät  *)
  65.  
  66. PROCEDURE sgn ( x : REAL ) : REAL;  (*   Vorzeichen -1.0, 0.0 oder +1.0  *)
  67.  
  68. END MathLibExt.
  69.